home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / midi / dskchngr.lha / DiskChanger / S / deliinsertdisk next >
AmigaDOS Script File  |  1995-08-15  |  990b  |  25 lines
  1. .key VOLUME/A,DATABASE/A
  2. .bra {
  3. .ket }
  4. ;----------------------------------------------------------------
  5. ; -DISKINSERTED-Script- make yourself familiar how the script works
  6. ; to create your own (optimized) one. that what i call a "database"
  7. ; is infact only a poor textfile; maybe you can offer me a more
  8. ; complex database, i.e. an arexx script for FinalData or so ?
  9. ;----------------------------------------------------------------
  10. C:Search >pipe:db.{$$} FROM {DATABASE} SEARCH "{VOLUME}" NONUM
  11. If WARN
  12.   C:Type pipe:db.{$$} >NIL: ; clear the pipe
  13.   C:Search >pipe:db.{$$} FROM {DATABASE} SEARCH "default:" NONUM
  14.   If WARN
  15.     C:Type pipe:db.{$$} >NIL:
  16.     C:RequestChoice >NIL: "Error Message" "{DATABASE} has no default: entry!*NYou MUST provide at least an empty program." "Ok"
  17.     Skip AllOver
  18.   EndIf
  19. EndIf
  20. set progname `c:type pipe:db.{$$}`
  21. echo ".key a,b/f*N.bra <*N.ket >*Necho <b>*N" >T:filter.{$$}
  22. setenv DELIPROGRAM `execute T:filter.{$$} $progname`
  23. Lab AllOver
  24. unset progname
  25.